Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/MacPerl 5.0.3/MacPerl Source ƒ/Perl5/lib/GetKey.pl

Text File | 1995-10-06 | 339 b | 19 lines | [TEXT/MPS ]

#
# GetKey -- return key that was pressed, if any
# Matthias Neeracher <[e-mail]>
#
# Distribution permitted as long as copyright notice stays intact.

#
# $result = &MacPerl'GetKey();
#
# $result is a single character if a key was pressed, else
# an empty string.
#

package MacPerl;

&MacPerl'LoadExternals("GetKey.pl");

1;